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Pub1±ca^Oes 
par &. 

Computadores 


Linha Sinclair - TK 35, CP 200, TK 90X e outros. 

Curso de Basic volume I 

Teoria, exemplos e exercicios resolvidps, explanadcs em 10 aulas, 
oferecendo una abordagem simples e direta. 

Bicas para adaptar programas de outras aiquinas para linha Sinclair. 

PoderS ser usado por auto-didatas, ou coso livro diddtico. 

Curso de Basic volume II 
prograaagXo avangada 

Tea cofflo objetivo complementer o livro Curso de Basic volume I. 

Procura conduiir o usuArio, a construir seus prfiprios programas, 
e nSo se limita ser apenas urn dicionirio de coaandcs e fungfces. Todos os 
programas possuem o respective fluxograma e urns explicagSa coaentada da sua 
montagem. E urn livro didStico. 

Ua dos capitulos 4 dedicado a ensinar coao desproteger programas da 
linha Sinclair. 

Linha Apple - todos os computadores coapatfveis com Apple e TK 2030. 

77 Programas para linha Apple 

Atravfes de JQ60S e PR06RANA3 EBUCATIVOS voc§ serS induzido a pensar, 
resolver problemas, e tomar conhecimento de como poderS usar hem c cosputa- 
dor, de forma simples e divertindo-se ! 





Programs Cofserdais da linha Apple - V.l 
para Pequens-Eflfpresa 

Este livro irks a 1 istagesr cospleta dos programs c qsbo: flala-direia, 
Controls de estoque e Cemtas a receber e a psgar, indispensftveis k pequena- 
sapresa, 

0 autor fez um anMise sinunciosa desses programs, coir? o ofejetivo 
de dar oportonzdade a voce de aprender a program, alta de orientar o pe- 
queno espresSrio como conduzir-se, na «rea de inforftitica, de forma ecortf- 
nica. 


Programs Coaerciais da iinha Apple - V,2 
para Psquena-Empresa 

Este livro trks a listages coapleta dos programs como; litilitiric 
de Arquivos, EftUsSo de Faturas/Duplicatas e Vendas a varejo, indispensd- 
veis k pequena- empress, 

0 autor fez ma anSlise flinurtciosa desses prograsas, cos 0 objetivo 
de dar oportunidade a voce de aprertder a prograaar, aldt de orientar 0 pe- 
queno eapresSrio corao conduzir-se, na krza de inforaitica, de forma econfl- 
mica. 


Usando 0 Vi si plot 

0 autor faz uaa aniiise coispleta e exempli Heads do 'programs Vi si- 
plot b rostra como tirar dados, ou seja interagir, com os programs Visa- 
calc e Supervisicalc. 

Usando 0 Assembler 6502 

Tern Como objetives utilizer os recursos do siicroprocessador 6502, 

Sua abordagen £ a mais si spies possfvel, Possui examples de progra- 
aapSo prStica e descrigSo das instates do 6502. 

Este livro pode ser usado por urna pessoa que nunca prograi&ou antes 0 
Assembler. 
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PREFACIO 

Desde a Segunda Grande Guerra, o computador tern 
gradual mente se inserido em nossa sociedade, e agora 
apresenta um papel preponderante* O impacto de alqun 
enormes e complexes programas,como aterrissagem 
lunar, e o subsequent© progresso na pesquisa 
espacial,demonstrou a importances vital deste 
equipamento para a moderna tecnologia. 

Cada um de n6s, tern contactos di^rios com os 
seus servicos, atrav£s de recebimentos de faturas, 
uso de cartoes de cr£dito, e atrav£s de atos sim¬ 
ples, mas essenciais, como a discagem telefonica de 
grande distancia (Dt>D> , e nos bancos. Entretanto, 
rtos sabemos que esses contactos constituem s6 o 
infeio?a gama de aplicaches continuar5 se 
expandindo nos prhximos anos. 

Estamos passando para una era de maior uso e 
control© da in-formacho. Apesar da sua aplicac&o 



em muitos aspectos da vida di5ria, as pessoas con- 
tinuam a ignorar como funciona,quais as vantagens e 
e limitacdes, e como poderiam, melhorar pro-fissio- 
nalmente, aprendendo mais acerca dele. Esta falta de 
conhecimento, conduz a algumas di st or cites. Muitos 
temem uma mudanca radical da vida humana,subordinando 
o Homem aos impulses de uma mdquina insensfvel, 
enquanto.outros acreditam que ele irS erradicar a 
a maioria das -formas de trabalho, deixando o homem 
livre para o lazer.Ambas as visdes sSo extremas, 
e a verdadeira promessa do computador, esta no meio 
Ele e um maravilhoso instrumento de trabalho,com 
com grande potencial. 

0 objetivo deste curso, a apresentar um guia 
compreensfvel,projetado para ensinar ao iniciante 
a programs—lo,o-ferecendo uma abordagem simples, 
dzreta e tSo precise quanto nos foi possfvel . 

Este mStodo teve como apoio, a experiencia 
dos cursos para iniciantes oferecidos pela Micro-Kit 
IntormStica, para adultos e criancas, e visa, como 


1 ivroj di -fundi r a linguagem BASIC em todo o 
terri t<5rio nacional. 

Tompu“se como base, a programacAo volt ad a para 
os micro-computadores da linha Sinclair, Apple e Msx 
por serem os mais populares e possuirem um crescente 
ntimero de instala^es em nosso Pafs. 

A Micro-Kit tern si do a pioneira nest a Area mas 
procura incentivar o espfrito de aventara de nossos 
joyens que tern expandido as nossas fronteiras do 
Oeste,fornecendo -05 subsidios para que sejam repro- 
duzidos os nossos cursos nas regimes mais afastadas 
dos grandes centres urbanos. 
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Primeira aula 


1.1 - Introdu^ao a programas^o. 

0 programador iniciante deve praticar 
o que estci aprendendo no computador. 

Esta experi&ncia no microcomputador e 
uin elementovital no .aprendizado da progra— 
ma££fo. 

0 que 6 urn computador ? 

— E uma maquina que aceita informa,, 
^oto, processando-a de acordo com instrufSes 
especificas, e provS o resultado como nova 
informa^ao. 

Embora uma simples maquina de somar 
tenha esta mesma defini^ao, urn moderno com¬ 
putador tern a habilidade adicional para 
processar grandes quantidades de informa— 
£&es, em alta velocidadej fazer certas es— 
pecies de decis&es e reter numerosos resul- 
tados na merndria. 

Guando se aprende a usar o compute— 
dor, vai ficando evidente que essas facili- 
dades somadas, transformam—no em um dispo¬ 
sitive de extraordinaria capacidade. 

Antes de aprender a programa—lo, o 
estudante deve ter uma clara compreenslfo de 
dois termos basicos criados pela tecnologia 
da informatica: software e hardware. 

As instru«pdes codificadas, programas 
que dirigem o computador para processar in- 
for matpSo, sSto chamadas software. 
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O que pretendeftios neste curso, e sn- 
sinar o caminho para o aluno entender o 
processo de desenvolvimento do software. 

0 hardware, consiste numa unidade de 
processamento central (CPU), memoria prin¬ 
cipal, varies dispositivos de entrada e 
saida e de armazenagem. Instru^des s&o 
executadas, uma de cada vez, na CPU, en- 
quanto a memoria principal aririazena dados, 
e outras instru^des de resultados calcula- 
dos. 

Dispositivos de entrada e saida 
permitem ao usuario, entrar com in-forma^des 
no computador, e receber o resultado pro- 
cessado. Isto e usual men te -feito num te— 
clado, um dispositivo para datilografar a 
entrada, com a saida sendo registrada em 
uma impressora ou video. Os mais comuns 
dispositivos de armazenagem sSo os discos e 
as -fitas magneticas, que ScTo usados para 
armazenagem de programas e dados por um 
tempo inaior. 

0 que e um programa ? 

* 

— E um piano que in-forma ao computa¬ 
dor a sequ#ncia na qual entrant os dados; 
como os calculos sSTo real izados; como fazer 
as decisoes necessarias e como imprimir a 
saida desejada. 

0 programa deve ser escrito numa lin— 
guagem tal como a BASIC, a qual o computa¬ 
dor compreende. Esta linguagem -foi origi- 
nada do Dartmouth College, no inicio da de¬ 
cade de 60 . 

A vantagem do BASIC e perroitir uma 
grande gama de aplica^des e a capacidade de 


tomada de decisoes, embora use um vocabula— 
rio limitado de palavras em ingles. 

Estas palavras atuam como COMANDOS, 
que instruem o computador para fazer certas 
operates desejadas. Embora um programa 
muitas vezes possa parecer perfeitamente 
compreensivel para o programador, o compu¬ 
tador podera v£-lo como algo estranho, se 
-forem util izados comandos que n&o -fa^am 
parte do seu vocabulario. E importante en¬ 
tender que a maquina compreende somente co¬ 
mandos legitimos em BASIC. 

Devido a que varies programas possam 
ser escritos, produzindo saidas iddnticas, 
o tempo que ele leva para processar cada 
programa, pode variar. 0 objetivo de uma 
boa e eficiente programatz&o, e produzir re¬ 
sultados validos com o minimo de tempo de 
processamento. 


1.2 — Numera^So de linhas. 

Para estabelecer a sequencia de ins- 
tru^des em um programa, cada comando e de— 
signado por um nCimero de linha. 0 computa¬ 
dor le as instrugides, comegiando com o nume— 
ro de linha mais baixo, em seguida, o pro¬ 
ximo numero, e termina com o comando de n&— 
mero mais alto. E possfvel bater as ins- 
tru^des -fora de ordem, pois o computador 
col oca—as na or r'om. 
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Exemplol Experiments digitar. 

50 PRINT 3 
20 PRINT 2 
10 PRINT 1 

Agora digite RUN e (ENTER ou NEWLINE) 
e voc^ vera qus o cofflputador ira col. dear as 
linhas em ordem crescents. 

1«3 — Opera^Oes — Preced^ncias s simbolos. 

Se par^nteses n3to s3fo usados, a pre- 
ced£ncia ds opsra^des no cofnputador e. 

1) Eleva^o a pot&ncia. 

2) Diviscto e/ou Multiplica$:3o, encoh- 
trada da esquerda para a direita* 

3) Adi^So e/ou Subtra^ao, encontrada 
da esquerda para a direita. 
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? Operaf^o 

Simbolo 
matematico 

Simbolo ! 

era BASIC ! 

! Adi^i^fo 


+ ! 

i 

! Subtra^dfo 


- ! 

f Multipl ica^efo 

! X ou . 

* \ 

\ 

! DivisSo 

! : ou / 

/ ' 


! n 

! 

* E;;ponencia^cto 

! b 

b n ! 


Quando par^nteses s£o usados, o com-: 
putador calcula a quantidade dentro dos pa¬ 
rent eses primeiro- Se mais de um conjunto 
de parenteses e usado ? o conjunto mais in¬ 
terne tem preced^ncia. 

For exemplo: 

6 / 3*2 0 resultado e 4, embora a res- 
posta possa ser 6 / 6—15 o computador come^a 
da esquerda e -Faz a divis&o primeiro. 

12+4/0 0 resultado e uma mensagem de 
erro. 0 computador n^fo pode divi dir por 
zero* 

1.4 — Modo imediate. 

Ncfo e necessario escrever um programa 
de muitas linhas em BASIC- 0 computador 
executara" um unico coman do, quando o comando 
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aparecer sem o numero de linha. 

Assim, comandos sem numero de linhas, 
5 c(o executados imediatamente, enquanto co— 
mandos que come^am com numero de linha, s3o 
assumidos pelo computador, como parte de um 
programs, sendo assim armazenados. 

Exemplo: 

10 PRINT "COMPUTADOR” 

E assumido como parte de um programs. 

PRINT "COMPUTADOR” 

Sera impresso a palavra COMPUTADOR de 
imediato. 

1.5 - Comandos PRINT e STOP. 

Programs '• 1.15 

Este programs ilustra como o computa¬ 
dor pode -Fazer calculus e imprimir resulta- 
dos. 

10 PRINT 31+70+4 

20 PRINT 2 * 5 - 6 / 3 

30 PRINT (2 +3) ** 4 

40 PRINT (13-11) **3/0 


Existe uma serie de pontos ilustrados 
por este simples programs: 

1> 0 comando PRINT faz o computador 
calcular e imprimir o resultado desejado. 

2> Cada programs, deve ter um comando 
STOP, como instru^Sto de numero mais alto, 
para informar ao computador que o programs 
esta completo. Qualquer comando de niimero 
mais alto que o STOP sera' ignorado pelo 
computador. 

3) 0 programador digita o comando 
RUN, para instruir o computador para rodar 
o programs. Note que este comando n&o tern 
numero de linha, e nSo e parte do programs. 


1.6 - Comando LET. 

0 programa seguinte introduz o con— 
ceito de designa^So de resultados de calcu- 
los para uma nova variavel. 

Ele tambem indica como um uso e>;pan¬ 
dido do comando PRINT permite ao programa— 
dor mais flexibi1idade na saida. 

Suponha que um programa e escrito pa¬ 
ra computar a ^rea de uma mesa. 


Programa 1.2: 
10 LET L-15 
20 LET C—25 


50 STOP 


30 LET A=L*C 
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40 PRINT"AREA DA MESA= "? A 
50 STOP 


O comando LET, nas linhas 10 e 20 ar- 
mazena os valores 15 e 25 nas variaveis L e 
C e na linha 30 ele comanda o computador 
para fazer um calculo e designs o resultado 
para uma nova variavel A. Para executar a 
linha 30, o coraputador necesssita dos valo¬ 
res de L e C, previamente designados nas 
linhas 10 e 20. 

Na linha 40, o computador e instruido 
para imprimir as palavras: AREA DA MESA= e 
depois, o valor da variavel A. Palavras ou 
sxmbolos entre aspas apos um comando PRINT, 
sSto impressos pelo computador. 

0 "5" instrui o computador para im— 
primir o valor da variavel A, imediatamente 
apos as palavras entre aspas. 

Na -figura abaixo veremos como o com— 
putador -faz o armazenamento das variaveis C 
e W. 

« C*. <x 
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MEMORIA UNIDADE ARITMETICA 


; L ! 5 W ! 

- ->- 

! 15 ! ! 25 ! 

i 

i 

-.- > - 


! A ■ 

--- < 


A adi^cfo das seguintes linhas no pro— 
grama 1.2, produzi ra os result ados na -forma 
de tabela. 


5 PRINT "CGMPRIMENTO";" ”;"LARGURA"5 

.. ... » A rea« 

40 print " ";l;" W; " “;a 


1.7 - Comando INPUT. 

Em muitos casos, especialmente usando 
o computador, para fazer calculos envoiven- 
do dados de um laboratorio, e desejavel in- 
troduzir os dados atraves do tec 1 ado t«io 
logo sejam* conhecidos. 
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Programa 1.3: 

Este programa e uma variag:3o do pro . 
grama 1.2. Agora os valores de L e C podem 
ser introduzidos durante a execu^ao. 


10 INPUT L 
20 INPUT C 
30 LET A=L*C 

40 PRINT"AREA DA MESA= "5A 
50 PRINT 
60 GOTO10 
70 STOP 

Toda vez que o computador encontra o 
comando INPUT, ele coloca um cursor L no 
canto ‘esquerdo interior da tela. . 

O pri.niei.ro ndmero do INPUT, e desig 
nado para a primeira variavel na linha 10 
aue e L. 0 segundo numero, e designado pa 
ra a segunda variavel que e C. O programa 
e entSo executado, e o valor de A e impres- 

BO* - 

Para parar um programa, em qualquer 

tempo, durante uma execufSo, o usuano de- 
vera' apertar as teclas SHIFT e STOP e a te 
cla ENTER ou NEWLINE, assim, poderemos re 
executar o programa ou lista-lo. Podemos 
melhorar o nosso programa, de maneira qixe, 
ao ser executado, ele ta^a uma pergun£a. 
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Para isto devemos acrescentar a se- 
guinte altera^&o: 

5 PRINT ,, QUAIS SAG AS DIMENSOES? w 

Devemos observar que na linha 60, 
aparece o comando GOTO. Este comando tern 
como f inalidade retornar S linha 10 para 
podermOs entrar com novos valores. 


1.8 - Fun^ato SQR. 

Veremos o use desta -fun^o, atraves 
do programa 1.4. 

Programa 1.4: 

Este programa usa o teorema de Pita— 
2 2 2 

tagoras C = A + B para calcular a hipotenu- 
sa C de tridngulos retdngulos, utilizan- do 
os catetos A e B. Para o calculo da varia¬ 
vel C, e necessaria a introdu^rSco da tun^So 
SQR. 

10 INPUT A 
20 INPUT B 

30 LET C=SQR<A**2+B**2> 

40 PRINT"HIPOTENUSA= "iC 
50 PRINT 
60 GOTO 10 
70 STOP 
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Na linha 30, a -fun^So SQR cal cal a a 
raiz quadrada da expressSo entre par#nte- 
ses. 


1.9 - Funs&o INT. 

0 computador tem a habilidade de 
truncar decimals. 

0 comando A = INT(X), Paz A igual ao 
maior ntimero inteiro nCo maior que X. 

Observe que esta Pun^Co, nCo arredon— 
da um nufliero positive mas, simplesmente, 
trunca-o. Para um numero negative, el a to- 
ma o proximo inteiro negativo mais baixo. 

Por exemplo: 

INTO. 7640) = 3 INTO. 9) = 5 

INT(—1.7) = -2 INT(—3.01) = -4 

Arredondar um numero para o inteiro 
mais proximo, e Peito, Pazendo-se A = INT<X 
+ 0.5). 


Por exemplo: 

Se X = 3.4 entico 3.4 + 0.5 - 3.9 e 
INT <3. 9) = 3 


Se X = 3.6 entSo 3.6 + 0.5 =4.1 e 
INT(4.1) = 4 


A Pun£c(o INT e tambem usada para ar— 
redondar numeros para um numero especiPico 
de casas decimals. INT(10 * X +0.5) / 10 
arredondara X de uma casa decimal. 
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Por exemplo: 

3e X = 2.57, entSo (10 * X + 0.5) = 

(25.7 +0.5) = 26.2, e INT(26.2) = 26, que 

quando dividido por 10 e 2.6, o valor cor— 
reto arredondado. Uma Pormula geral para 
arredondar X para N casas decimals e: 

INT(10 ** N * X + 0.5) / 10 ** N 


Retornando ao programa 1.4, para ar¬ 
redondar a saida para o mais proximo deci- 
mo, a linha 40, deve ser alterada para: 

40 PRINT"HIPOTENUSA= ";INT(10 * C + 
0.5) / 10 


1.10 — Comando REM. 

✓ 

E um comando utilizado no corpo do 
programa para permitir ao programador, in— 
troduzir observances expianatori as. 

Exemplo: 

5 REM PROGRAMA QUE CALCULA A HIPOTENU 
SA DE UM TRIANGULO RETANGULO 
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Exercfcios da primeira aula: 


1-a) Qusiis das seguintes variaveis 
s3co legitimas em BASIC? (Sim ou NSo> 

0 1A A AB 


P3 TO 0 HI 


l-b> Quais s3o os tipos de variaveis 
em BASIC? 


2) Escreva um programs para resolver 
a expressSo 12 * X + 7 * Y: 


X 

? 3 

i ~7 i 

i / I 

12 

Y 

5 2 

i_i „ 

i i 

1 9 l 

-4 


3) Um peda?o de pizza contem cerca de 
375 calorias. Uma pessoa gasta 100 calo- 
rias ao correr a distdncia de 1 milha. 

Escreva um programa que pergunte a 
cada pessoa, quantos peda^os de pizza ela 
comeu e que intorme a distetncia que deve 
ser corrida para queimar as calorias consu~ 
midas. 
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Exemplo: 

QUANTOS PEDACOS VOCE COMEU ? 4 

VOCE DEVE CORRER 15 MILHAS 

4) Usando um comando INPUT, escreva 
um programa que calcule o volume de uma sa— 
la, dada a sua largura, comprimento e altu- 
ra. 

5) Escreva um programa para calcular 
a media de quatro numeros. 

6) Escreva um programa para calcular 
os pretjos unitarios dos itens de um super 
mereado, 

7) Escreva um programa para converter 
graus Fahrenheit em graus Celcius. 

A formula para isto e: 

C = ( 5 / 9 > * ( F - 32 ) 

8) Escreva um programa que calcule a 
soma de A com B e o produto de A com B» 
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Segunda aula 


2. 1 — DecisCfes e loops. 

Os comandos apresentados na aula an¬ 
terior permitem, ao computador, executar 
calculos que podem ser -feitos numa simples 
calculadora. No entanto, a habilidade de 
um computador de tomar decisfies , o faz mais 
poderoso que maquinas que so fazem calcu¬ 
los. Uma vantagem importante da tomada de 
decisbes do computador, e permitir a execu- 
Scfo de um con junto de comandos durante um 
determinado numero de vezes. Assim, de 
forma diferente do homem, os computadores 
podem repetir por varias vezes qualquer 
servi^o, nSo importando o qu&o dificil ele 
possa ser. 

Os comandos introduzidos na primeira 
aula, GOTO, PRINT, etc., sSfo chamados in— 
condicionais, pois o computador nSo tem es~ 
colha e procura-os na ordem de sua ocorr^n- 
cia no programs. 

Nesta aula, comandos condicionais e 
comandos de tomada de decisttes, tais como: 
IF ... THEN ..., FOR ... TO ... STEP ..., 
NEXT ... e a tecnica de somatpdo, sSfo apre¬ 
sentados. 


2.2- Comando IF ... THEN .... 

A forma geral para o comando IF 
THEN... e: 


IF <rela$:3o) THEN (num. de linha) 
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A relac&o compara duas quantidades. 

Elas devem ser separadas . por um dos 
simbolos indicados abaixo: 



Um exemplo do comando IF...THEN...e: 

20 IF X > 5 THEN GOTO 60 

Quando a rela^Jto na linha 20 <X e 
maior que 5) for verdadeira, o computador 
desvia para a linha 60. 

Quando a rela^&o e falsa, porque X e 
menor ou igual a 5, o computador prossegue 
executando a proxima linha sequencial do 
programa. 

Programs 2.12 

Este programa determina se o valor de 

entrada de X e solufSo para a equa^So: 
X**2-B2*X+ 657 = 0. 
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10 

INPUT X 


20 

IF X ** 2 
GOTO 50 

- 82 * X ■+ 657 = 0 THEN 

30 

PRINT x;" 

NAO E UMA SOLUCAO" 

40 

GOTO 10 


50 

RINT x; 

JMA SO CAO" 

60 

GOTO 10 


70 

STOP 



Note a necessidade da linha 40. Ela 
n&o permite a impress&o da linha 50, a me- 
nos que X satisfa^a a rela^So no comando 
condicional da linha 20. 


2.3 — Comando FOR..TO..STEP.., NEXT. 

Suponha que seja necessario, no pro- 
grama 2.1, encontrar todas as solu^ftes en 
tre o conjunto de inteiros impares positi- 
vos de 1 a 99. Com os comandos dispomveis 
neste panto, o problema pode ser resolvido, 
usando-se o comando INFUT, requerendo que 
50 numeros sejam datilografados. Os coman 
dos FOR... TO...STEP...e NEXT resolvem o 
problema de gerar uma grande sequ#ncia de 
numeros, considerando que cada numero na 
sequAncia ditere, de seu predecessor de uma 
quantidade constante. A uni ca coisa que 
pode ser mudada.e estar diferente num FOR, 
sSo as variaveis, e as tr£s relates. oe o 
STEP n£to -for usado no comando, o compbtador 


usara o valor de 1 para o STEP. Revisando 
o programa 2.1 para usar estes novos coman¬ 
dos, a linha 30 e apagada e as linhas 10, 
40 e 60 sSfo substituidas por: 

10 FOR X= 1 TO 99 STEP 2 

30 

40 GOTO 60 

60 NEXT X 

Estas linhas, criam um loop, para 
testar cada numero impar de 1 a 99. Quando 
o programa alcanna a linha 60, o computador 
retorna A linha 10 para outro ciclo. 

No comando NEXT, a variavel deve ser 
a mesma que a usada no comando FOR que 
abriu o looping. Muitas vezes, estruturas 
mais complicadas de looping sAo necessarias 
a um programa. As estruturas de looping, 
nSio devem se cruzar. 0 exemplo abaixo, 
ilustra um segmento de programs com loo- 
pings cruzados. 

-> 100 FOR A= 2 TO 20 

« 

-> 110 FOR B= 4 TO 8 

i i 

! \ os loopings se cruzam 


t -> 240 NEXT A 

< 

-> 250 NEXT 8 
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Um outro exemplo com loopings cruza 

dos: 

___> 100 FOR 1= 0 TO 20 STEP 2 

I 

I -> 110 FOR A— 10 TO 2 STEP -1 

l l 

i ——> 120 FOR B= 1 TO 4 


o looping externa esta 
certo, o interno cruza 


, i —_> 170 NEXT A 
ii 

| 1-> 180 NEXT B 

i 

1-> 190 NEXT I 

O exemplo seguinte ilustra um compli— 
cado looping, onde os loopings estcto orga 
nizados corretamente: 


—> 

100 

FOR X= 

1 

TO 

10 

— > 

1 

110 

FOR Y= 

2 

TO 

4 

1 

—> 

140 

NEXT Y 




-> 

170 

FOR Z= 

1 

TO 

5 

—> 

210 

FOR K= 

20 TO 10 STEP 

—> 

270 

NEXT K 




___ 

310 

NEXT Z 





No exemplo acima, nos temos looping 
duplos e looping dentro de looping. Lem- 
bre-se que qualquer combinaplto pode ser 
usada num programa, mas devemos ter o cui— 
dado de n3to deixar os loopings se cruzarem. 

Se isto ocorrer, o computador assina- 
la um erro e para. 

2.4 - Somaczcto. 

A tecnica de soma^rSlo e um bom exemplo 
da utilidade das tecnicas de decis&o e 
loop. 0 metodo cornera nomeando uma varia- 
vel e dando a el a um valor inicial. Cada 
vez que uma quantidade e somada ao valor 
anterior da variavel, a soma dos dois passa 
a ser o novo valor da variavel. 

Por exemplo: 

30 LET A = A + 5 

0 comando A = A + 5 e ilegal matema— 
ticamente. Neste caso, entretanto, o com¬ 
putador interpreta o sinal de igual como: 
"recoloque" ao inves de "igual a". Usando 
a analog!a de caixa, assuma que o valor 10 
•foi designado para a caixa A. 

Quando o computador processa a linha 
30, 5 e somado ao valor na caixa A. 0 novo 
valor 15 substitui o previo valor na caixa 
A. 


410 NEXT X 
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MEMORIA^ UNIDADE 

7 A ", ARITMETICA 

1-—-—- 10 - - 77“7 

, 10 __->-- '■ 10 * 5 = 15 ! 
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Programa 2 - 21 

O seguinte programa usa a tecmca de 
soma^o para imprimir todos os inteiros p 
res de 50 ate 60. 

10 LET A = 50 

20 PRINT A;" "5 

30 LET A = A + 2 

40 IF A <= 60 THEN BOTO 20 

50 STOP 

A linha 10, inicialmente designs para 

A o valor 50- , 

Na linha 30, o valor 2 e somado ao 

arvticio valor de A- _ . • . , . 

' Agora A=52. .Na proxima vm que a 

nha 30 for encontrada, o va!lor de * * 

sar 54. Na linha 40, o valor de A e coepa 
rado com 60. O loop continue ate que, o va- 
lor de A seja maior que 60. 
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Os comandos avan^ados em BASIC, en- 
tretanto, permitem o numero de linha no co— 
fnando IF. ..THEN..., serein substituidos por 
urn ou mais comandos. Os exemplos seguin— 
tes, ilustram como procedimentos que teriam 
requerido no minimo dois comandos, podem 
ser reduzidos para um. 

IF X = 5 THEN PRINT"CORRET0” 

IF X = 12 THEN LET A = 7 

IF X = 22 THEN LET N = N + 1 

0 BASIC permite que, uma serie de co¬ 
mandos, sejam impressos nuina unica linha 
separados por : (dois pontos). 

A linha: 

IF X » 5 THEN PRINT“CORRETO”: GOTO 50 
fara imprimir a palavra CORRETO, e causara 
um desvio para a linha 50, se X = 5, mas 
n3o fara nada, se X n3fo for igual a 5. 


2.5 - AND/OR. 

Os modificadores de comando AND e OR 
no comando IF... THEN... podem tambem serein 
usados para simplificar comandos nos quais 
mais de uma condi£&o possa acontecer. 

IF X > 5 AND Y = 3 THEN GOTO 50 

Nos so iremos para a linha 50 se am- 
bas as condi^des forem verdadeiras. 
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IF X > 5 OR Y = 3 THEN 60T0 50 

Nos iremos para a linha 50 s * 
outra condi <?3o for verdadeara. Basta que 
uma condig3o seja verdadeira- 

Pr ogr ama 2 * 3 1 

Este programa testa valores de X e Y 

para saber steles f o “ fl 

sigualdades 5 * Y + X ** 2 

5 * X < 20. 

10 INPUT X,Y 

20 IF 5 * Y + X ** 2 > 10 AND V ** 2 - 
5 * X < 20 THEN GOTO 50 

30 PRINT X5" E Y;" NAO SAO SOLUCOES" 
40 GOTO 10 

50 PRINT XS" E 11 jY? 1 ' SAO SOLUCOES" 

60 GOTO 10 
70 STOP 

Exercicios da segunda aula: 

1 - Escreva urn programa que calcule a 
seguinte expressSlo: 

( 3 / 5 ) * X + 2 * X + 2/5 > 300 
para os valores de X = (10,12,14,...,40) 
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2 - Escreva um programa que pergunte 
a idade de uma pessoa. Se a pessoa tiver 
16 anos ou mais, o computador devera impri— 
mir: "VOCE PODE DIRIGIR UM CARRO’*. Em caso 
corttrario, fa$:a o computador inf or mar quan- 
tos anos a pessoa devera esperar para diri— 
gir um carro. 

3 — Escreva um programa que gere uma 
tabela de numeros e suas respectivas raises 
quadradas. 

4 — Escreva um programa que conte e 
imprima numeros de 10 em 10 entre 0 e 500. 

5 - Um hotel tern 10 andares. 

Cada andar tem 10 aposentos. Fa^a o 

computador imprimir uma etiqueta para cada 
apartamento informando o andar e o numero 
do aposento. 


6 - Escreva um programa que imprima 
uma tabela de convers&o de polegadas para 
centimetros. Existe 2-54 centimetros numa 
polegada. Comece com 0 e continue ate 10 
polegadas em STEPS de 0.5 polegadas. 
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Terceira aula 


3 ,i - "STRINGS” <cadeias e tormata^So) - 


Was aulas anterlores, as variaveis 
t#m sido usadas apenas para representar nu- 
meros. Esta aula introduz a variavel 
’’STRING” si que permits que as variaveis re 
presenter!* palavras, ou qualquer combina$So 
de letras, digitos e caracteres especiais. 

Entre as vantagens das variaveis 
’’STRING”, esta a Tlexibi 1 idade permitida 
para a formata^ao. Os comandos de -formata- 
cito num programa, s3o aqueles que informant 
o computador do “layout” desejado para a 
saida. Comandos PRINT s3o introduzidos pa¬ 
ra permitir ntaior variedade na formata^Ho. 

3.2 — Variaveis STRING. 

As variaveis numericas, representam 
somente numeros, e sSo denotadas por varias 
letras, ou uma letra seguida de um digito. 

O terrao STRING, indica uma sequ£ncia 
de caracteres representadas por letras, di 
gitos e/ou caracteres especiais, que sao 
tratados como uma unidade unica. 

Por exemplo: ANA, 1984, 609-896, CASA 
e 5:00 P.M. seriam STRINGS. Qualquer nome 
legitimo de variavel seguido de um sinal de 
dolar {$>, represents uma variavel STRING. 

Por exemplo: A*, B$, W*. A analogia 

com caixas, pode ser usada para en-fatizar a 
di-feren^a entre variaveis numericas e va 
riaveis string. 
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Enquanto caixas de variaveis numeri¬ 
cas contain numeros, caixas de variaveis 
strings devent conter caracteres. 

VARIAVEL VARIAVEL 

NUMERICA SPRING 

! £ i ! E$ ! 

• 14.3 « ! ERICKA ! 


Programs 3.1: 

O seguinte programs demonstra o uso 
de uma variavel string. 

10 INPUT A$ 

20 PRINT A* 

30 GOTO 10 

40 STOP 

Onde A* S : PEDRO, CARLA, 5000 
Programs 3.2: 

Podemos ter ambas as variaveis. Hume¬ 
ri cas e strings, no mesmo comando. 

10 INPUT R* 


20 INPUT H* 
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30 

INPUT X 

50 

PRINT A*j n 

VEM 

ANTES 

DE 


40 

INPUT N* 

60 

GOTO 10 





50 

PRINT R$;" '^x;" "sn*,'' ";H$ 

70 

PRINT B$;" 

VEM 

ANTES 

DE 

**; A* 

60 

GOTO 10 

80 

GOTO 10 





70 

STOP 

90 

STOP 






Onde R$, H#, X e N$ s2fo: 

SALA, CASA, 15, CARLA 
13, JOAO, PEDRO, 25 

3.3 - Compara^So de STRINGS. 

E possivel comparer variaveis string, 
usando-se urn dos seguintes sxmbolos para 
determiner se al-fabeticamente eles sSo: 
iguais (=) 5 menor que <<); maior que (>> ou 
n&a iguais (<>). 

0 -formato geral usado e: 

IF (string) (simbolo) (string) THEN 


Programa 3.3: 

0 programa abaixo coloca duas strings 
em ordem alfabetica: 

10 PRINT"DOIS NOMES” 

20 INPUT A* 

30 INPUT B$ 

40 IF A$ > B* THEN GOTO 70 


3.4 - SUB-STRINGS. 

Dada uma string, uma sub—string con— 
siste de um numero de caracteres consecuti- 
vos de string, apanhados em sequ#ncia. 

A -forma geral e: 

expressao STRING ( pos.1 TO pos.2 ) 

El a -fornece uma sub—string da string 
A$, comecando com o carater na posi^SCo 1 e 
terminando com o carater na posiipSo 2. 

Para veri-ficarmos isto, digitemos as 
linhas 10 e 20. 

10 LET A*="i23456789” 

20 PRINT "CARACTERES 2, 3, E 4 DE A* 
SAO: "5 A*(2 TO 4> 

.Observa^do: n3to e precise colocar es— 
paco depois do TO. 

Digite RUN e voc# vera impresso na 
tela 234. 

a) A$(TO pos.2) - Fornecera a parte 
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esqusrda da string A3», come^ando do primei 
ro carater ate a posi£c(Q 2. 

Adicionemos agora a linha 30: 

30 PRINT"OS PRIMEIRGS 4 CARACTERES DE 
A* SAO: "5 A*< TO 4) 

Sera impresso: 1234 

b) A*(pos.1 TO) - Fornecera a parte 
da direita da string A*, come^ando na posi- 
$:3(o 1 ate o -final. 

Digite a linha 40: 

40 PRINT"A PARTE DA DIREITA DE A* A 
PARTIR DO CARATER 5 E ";A$<5 TO) 

Sera impresso: 56789 

c) Af(pos.n) ou A$(pos.n TO pos.n) - 
Fornecera o carater na posifSo n. 

Tente a linha 50: 

50 PRINT"O QUARTO CARATER DE A* E: "5 
A*(4) 

d) A*( ) du ft$( TO ) - Fornecera toda 
a string A$ como uraa sub-string. 

A linha 60 demonstra isso: 

60 PRINT"A$ E: ”;A$( ) 

Sera impresso: 123456789 

e) LEN A$ - Fornece o numero de cara- 
cteres da string A$. Tente a linha 70, re 


lembrando que LEN e uma funfKo ( apertc; 
SHIFT ENTER, e a tecla K ): 

70 PRINT"O NUMERO DE CARACTERES EM A$ 
E: '* ; LEN A* 

Sera impresso: 9 

■f) VAL A* — Determina o valor numeri- 
co da string A$. 

A linha 80 mostra isto (VAL e uma 
fun^So e esta na tecla J>: 

30 PRINT"O VALOR DE A$ E: " 5 VAL A$ * 

Nos teremos 123456790. Note que o 
computador arredondou seu numero de nove 
digitos para um de oito digitos. 

g) STR$ X - Converts uma expressSco 
numerica X em uma string. Tente as linhas 
90 e 100. <STR$ e uma -funfSco e esta na te¬ 
cla Y.) 
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90 LET A=333 

100 PRINT"A STRING DE A E: ”;STR* A 

Sera* impresso: 333 

h> CODE A* - Fornece o codigo do pri- 
meiro carater da string A*. Se a string 
•for nula, ou o primeiro carater e um espa^ro 
em branco, nos teremos o codigo "0". 

A Iinha 110 demonstra isto. (CODE e 
uma fun^So e esta na tecla I>. 

110 PRINT "A* COMECA COM 0 CARATER DE 
CODIGO NUMERO: "5 CODE A* 

A linha 110 imprimira o numero , '29 ,, - 
que e o codigo do carater “l". Veja no 
seu manual a lista de codigos. 

Tente digitar PRINT CODE "1", voc£ 
obtera' o mesmo resultado. 

i> CHR$(cod> - Fornece o carater coy— 
respondents a um codigo. Relembre, que 
"cod" pode ser uma enpressSfo constants, va- 
riavel ou formula, cujo valor deve estar 
entre 0 e 255. 

CHR$ e uma funfcto e esta na tecla U. 

Digite a linha 120. 

120 PRINT "O CARATER PARA 0 CODIGO 29 
e: ";CHR$(29) 


3,5 — Pontua^cto em comandos PRINT. 

Nas ultimas aulas, virgulas e ponto e 
virgulas, t£m si do usados como pontua^Sfo em 
comandos PRINT para instruir o computador 
sobre como arrumar a saida. Cada linha no 
video e -feita de um predeterminado ndmero 
de espagios, nos quais caracteres podem ser 
ijnpressos. Embora os di-ferentes videos 
possam ter um numero variavel de espa^os, a 
linha e usualmente subdividida em duas zo- 
nas. Se existem 32 espacos, as duas zonas 
cont£m 16 espacos cada uma. 

Isto para os equipamentos da linha Sinclair.Nos 
equipamentos da linha Apple e MSX,a tela £ dividida 
em 3 partes. Se uma vfrgula 

e" usada para formata^&o num comando PRINT, 
a i nf ormagiSo que se segue e impressa come- 
cando no primeiro espa^o da proxima zona 
disponivel. 

Quando um ponto e vfrgula e utiliza- 
do, a informag&o seguinte e" impressa come- 
cando no proximo espa^o disponivel. 


Programa 3.4: 

0 seguinte programa ilustra o uso de 
pontuag:ao e mostra a local iza^^co das duas 
zonas. 

10 INPUT A* 

20 FOR N =1 TO 3 
30 PRINT A*5 
40 NEXT N 


Sera impresso: 1 
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50 PRINT"12“ 

60 PRINT”A","B”,"C","D”,"E",“F" 

70 STOP 

Onde A$ e: 1234567890 
Programs 3.5: 

Este programs calcula a media de tr&s 
estudantes e niostra a impress^fo na -Forma de 
tabela. 

10 PRINT *’NOME ,, ;‘‘ " J "GRAU"; 

» ";"MEDIA” 

20 PRINT” ” 

30 INPUT A* 

40 INPUT C 

50 INPUT D 

60 INPUT E 

70 LET A = INT <(C + D + E) *10/3 + 
0.5) / 10 

80 print a*;” "jc?” " ”;e; 

" "SA 

90 GOTO 30 
100 STOP 

Onde A$, C, D e E s=fo: 

PEDRO, 89, 90, 90 


CLARA, 70, 75, 80 
ROSA, 30, 83, 85 

3.6 - Comando PRINT TAB. 

Urns Dutra manei ra de for mail ar a sal- 
da, e usar o comando PRINT TAB. Este co— 
mando permite ao programador, cornerar por— 
cfJes da impressSto em locals especificados. 

Exatamente como o "TAB” da maquina de 
escrever, a primeira posifSo de earater e 
TAB <0> . Uma i nf or mag: So de impress^o nas 
posigOes 5, 15 e 25 d feita da seguinte ma— 

neira: 

10 PRINT TAB(5)5”ISTd”;TAB<15)5"E"* 

FAB(25);“TAB" 

E important® usar ponto e virgula (;> 
apo's o TAB. 

Exercicios da terceira aula: 

1 — Como e que uma variavel string e 
identificada em BASIC ? 

2 — Escreva um programs para desenhar 
a letra (L> como na figura abaixo. Somen- 
te dois comandos PRINT podem ser usados no 
texto do programs. 

XX 

XX 

XX 

XXXXXX 

XXXXXX 



Quarta auia 


3 — Escreva urn programa que produza a 
Baida abaixo usando somente um comando 
PRINT. Os nomes s&o espagiados 10 vezes, do 
infcio de um nome para o inicio do proximo 
que e impresso na Iinha seguinte. 


Por exemplo: 


MARIO 

CARLOS 

LUCIANO 


ANTONIO 

RICARDO 

BRUNO 


4 - Escreva um programa que entre com 
uma cadeia de caracteres e a sua saida seja 
em diagonal. Cada letra seraf impressa numa 
linha embaixo da outra. 

5 - Escreva um programa para entrar 
com uma cadeia de caracteres, e a saida se¬ 
ja impressa na vertical. 


4.1 - Fun^des e subrotinas. 

Esta aula esclarece o uso da fung:da 
SGN, valor absoluto ABS e a -fung^o geradora 
de ndmeros aleatorios RND. 

Em adi^Sto, algumas tecnicas de poupar 
tempo em programaf^o mais sotisticada e 
apresentada. Isto inciui o comando GOSUB. 


4.2 - Fun^des SGN e ABS. 

Em algumas situa^des que usualmente 
envoi vem equagides matematicas, poe|e ser ne- 
cessario saber, se uma variavel e' positive 
ou negative, ou determiner seu valor abso¬ 
lute. 

A -fungrcCo SGN tern somente tr£s valores 
possiveis: 

SGN (X > = 1 se X > 0 


6 - Escreva um programa que quando 
voc£ entrar com uma cadeia de caracteres 
ele imprima a cadeia, e vai retirando um 
carater por vez. Por exemplo: se voc& 
digitar COMPUTADOR, o computador imprimiraH 


CQMPUTADQR 

OMFUTADOR 

MPUTADOR 

PUTADOR 

UTADOR 

TADOR 

ADOR 


SGN(X > = -1 se X < 0 
SGN(X) - 0 se X = 0 

Programa 4.1: 

10 FOR X = 20 TO -20 STEP -5 
20 LET A = SGN(X) 

30 PRINT A?" "? 

40 NEXT X 
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50 STOP 


Programs 4.2: 

0 vail or absolute de urn numero; 5X5, 
pode ser encontrado usando—se ABS(X). 

10 FOR X ~ -20 TO 20 STEP 5 
20 LET A - ABS(X) 

30 PRINT Aj" "5 
40 NEXT X 
50 STOP 


4.3 - Comando RND e RANDOM. 

4.3.1 - Linha Sinclair 

Em muitas simulates de computador, 
tais como, experimentos de laboratorio, 
problemas de cidncia geral e jogos, e ne- 
cessario gerar numeros aleatorios. 0 com- 
putador -faz isto, usando—se a furt?3o RND. 

0 comando RND instruira' o computador 
para produzir um numero aleatorio entre 0 e 
1 * 


Programs 4.3: 

10 FOR X = 1 TO 10 
20 LET R = RND 


30 PRINT R, 
40 NEXT X 

50 STOP 


Para obter inteiros de 0 ate 9, a 
•funsSro INT e empregada. 

A linha 20 e alterada para: 

20 LET R = INT(10 * RND) 

Este comando multiplies o numero ran— 
ddmico original por 10, e ent&o, trunca o 
resultado para o proximo inteiro menor. 

A seguinte equa^So pode ser usada pa¬ 
ra gerar um conjunto de inteiros randdmi— 
cos, nos quais N, e o numero de inteiros no 
c^onjunto, com A sendo o menor inteiro-. 

20 LET R = INT(N * RND) + A 

Para produzir um conjunto de inteiros 
randdmicos de 40 ate 50, inclusive, use 
N = 11 e A = 40. Usando somente o comando 
RND, o programa produzira o mesmo conjunto 
de inteiros randdmicos cada vez que ele 
correr. Para produzir um conjunto diferen- 
te a cada corrida, o comando RAND deve ser 
incluido no programa. 


Programa 4.4: 

0 programa abaixo inclui um comando 
RAND para produzir numeros inteiros randd- 
micos de 253 ate 294, inclusive. 
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5 RAND 

10 FOR X = 1 TO 10 

20 LET R = INT(42 * RND) + 253 

30 PRINT R;” 

40 NEXT X 
50 STOP 


Programa 4-5: 

O programa de jogo abaixo, escolhe 
aleatariamente ndmeros de 2 digitos entre 
10 e 99 e da ao jogador 3 chances de acer— 
tar cada urn dos dois digitos. 

20 LET Y = INT(90 * RND) + 10 

30 FOR A = 1 TO 3 

40 PRINT"INFORME 0 PRIMEIRO DIGITO" 

45 INPUT B 

50 IF B = INT <Y/10) THEN GOTO 90 
60 NEXT A 

70 PRINT"VOCE ESTA ENGANADO, 0 NUMERO 
ERA M SINT<Y/10) 

80 GOTO 100 


90 PRINT“VOCE ESTA CORRETO” 

100 FOR D = 1 TO 3 

110 PRINT"INFORME 0 SE6UND0 DIGITO" 

115 INPUT E 

120 IF E = Y - 10 * INT(Y/10) THEN 
GOTO 160 

130 NEXT D 

140. PRINT "VOCE ESTA ENGANADO, 0 NUME 
RO ERA "5Y - 10 * INT(Y/10) 

150 GOTO 170 

160 PRINT"VOCE ESTA CORRETO" 

170 STOP 

4.3.2 - Linha Apple e MSX 

Na linha Apple, a fun^So RND deve ser usada com 
um par&metro entre par£nteses. Se o contetido 
do parAmetro tor zero, o mlmero aleatdrio 
gerado serS sempre o mesmo. 

Na linha MSX, para que seja gerado un nilmero 
realmente aleatdrio, usar como par&metro (-TIME). 
Exemplo: 10 X = 8 

20 PRINT RND (X) 

Na linha Apple 

20 PRINT RND (-TIME) na linha MSX 
A seguir, voc0 pode -fazer adaptafdes nos 
programas acima,dependendo do tipo do seu equipamento 

4.4 - Comando GOSUB e RETURN. 



Nesses programas, onde partes do mes— 
mo s3o repetidas, mas nSo produzem os mes— 
mos valores cada vez, pode ser eficiente 
usar uma subrotina. Uma subrotina inicia 
com o comando GOSUB "numero de linha", e 
termina com o comando RETURN. 

For exemplo: 

10 .. 

20 GOSUB 200 
30 ...- 

200 . 

210 . 

230 RETURN 

999 STOP 

0 esqueleto do programa acima, ilus¬ 
tra o uso de uma subrotina. Na linha 20, o 
programa desvia para a subrotina que come^a 
na linha 200, executa a subrotina, e entcto, 
na linha 230, retorna para o corpo do pro¬ 
grama na linha 30. E^valido usar mais de 
urn comando RETURN, dentro da subrotina. 

Deve ser lembrado, que o cDroputador, 
sempre retorna para o primeiro comando apos 
o comando GOSUB, que chamou a subrotina. 

Entretanto, e aconselhavel colocar as 
subrotinas no -final do programa. 

As subrotinas, podem ser aninhadas de 
tal man^ira, que uma chame a outra. 


Este programa e uma versSo estendida 
do programa 4.5, reescrito de tal maneira, 
que um numero de 4. digitos possa ser adivi — 
nhado digito por digito, dando ao jogador 3 
oportunidades para cada digito. 

20 LET R = INT(9000 * RND) + 1000 
30 LET A = INT(R/1000) 

40 LET R = R ~ 1000 * A 
50 LET A$ = " PRIMEIRO " 

60 GOSUB 500 

70 LET A = INT<R/100> 

80 LET R * R - 100 * A 
90 LET A* = " SEGUNDO " 

100 GOSUB 500 

110 LET A = INT<R/10) 

120 LET R = R - 10 * A 
130 LET A$ = “ TERGEIRO " 

140 GOSUB 500 
150 LET A - R 
160 LET A$ = ” QUARTO " 


Programa 4.6: 


170 GOSUB 500 
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180 GOTO 999 

500 FOR X = 1 TO 3 

510 PRINT"INFORME O "sA*;" DIGITO" 

520 INPUT B 

530 IF B = A THEN GOTO 570 
540 NEXT X 

550 PRINT"VOCE ERROU TRES VEZES. O 
A$5" DIGITO ERA “;A 

560 RETURN 

570 PRINT"VOCE ESTA CORRETO. O ";A*J 
" DIGITO ERA A 

580 RETURN 

999 STOP 

Sem mna subrotina, o programador te- 
ria que dati logra-far as linhas 500/580 qua- 
tro vezes. Note como as linhas 30, 70, 110 
e 150 isolam cada dfgito, e como os valores 
de A, Re A$ s&o alterados apos cada RETURN 
da subrotina. 

Obs. A -fun^&o RND deste programs estct 
ajustada para a linha Sinclair. 

Caso o seu equipamento seja de outra linha, 
•fag:a os ajustamentos constantes do item 4.3.2 

Exercicios da quarta aula: 
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1 — Para obtermos uma sequ£ncia di-fe— 
rente de numeros aleatorios cada vez que o 
programa e executado, qual o comando que 
devemos v uti1izar ? 

2 - Para obtermos a mesma sequ&ncia 
de numeros aleatorios cada vez que o pro¬ 
grama e executado, qual o comando que deve 
ser utilizado ? 

3 - Escreva um programa para imprimir 
10 numeros inteiros aleatorios de 50 ate 
75, inclusive. 

4 — Escreva um programa que simule o 
langiamento de um dado. 0 dado devera* ser 
lan^ado 10 vezes e em cada vez devera' im¬ 
primir o numero da -face. 
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Quinta aula 


5.1 - Variaveis subscritas. 

A -fung:2[o RND desta aula estS 
ajustada para a linha Sinclair.Se o seu 
caso for outro,fa«i;a os ajustamentos 
constantes do item 4.3.2 

0 principal objetivo das variaveis 
subscritas, e armazenar, facilmente, grande 
quantidade de dados, recuperando-os mais 
tarde. Previamente, num programa, era pos- 
sivel dar none a somente 286 variaveis. 

Q uso de subscritos (indices), e o 
comando DIM, expande vastamente este limi¬ 
te. 


5.2 - Variaveis subscritas simples. 

0 programa seguinte, gera dez numeros 
aleatorios entre i e 20. 


Programa 5.1: 

10 FOR X = 1 TO 10 

20 LET Y = INT <20 * RND + 1) 

30 PRINT Y;“ "5 

40 NEXT X 

50 STOP 


Neste programa, cada vez que urn valor 
e designado a Y, ele substitui o valor pre¬ 
via de Y. 0 uso da variavel subscrita sim¬ 
ples, resolvera* o problems de numeros du— 
plicados. 

Uma variavel simples subscrita, ou 
uma variavel '’string 1 ’ subscrita, e repre¬ 
sent ada por qualquer variavel BASIC legiti— 
ma, ou nome de um string seguido por um in— 
teiro, que deve aparecer entre parinteses. 

Por exemplo: 

Ad), C5<3), T$ (4). 

S&o todas variaveis subscritas. 

A variavel subscrita L(l) n«fo en- 
tretanto, a mesma coisa de LI. Cada vez 
que o indice da variavel subscrita e modi- 
ficado, uma nova variavel e estabelecida, 
sem que seja perdido o conteudo da variavel 
anterior. 


Programa 5.2: 

Este programa, e uma revis^o do pro¬ 
grama 5.1, e utiliza variaveis subscritas, 
para armazenar os numeros. Este processo, 
pode ser dificil sem usar as variaveis 
subscritas. 

5 DIM Y(10) 

10 FOR X - 1 TO 10 

20 LET Y(X) * INT(20 * RND + 1) 
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30 PRINT Y(X)5" "5 

40 NEXT X 

50 STOP 
Programs 5.3: 

Utilizando variaveis subscritas, o 
programa abaixo calcula a Area de um campo 
medido por trbs estudantes. 

Suas medi^des, sSto em metros, e a me¬ 
dia de todas as suas areas calculadas, s£o 
em metros quadrados. 

10 LET B - 0 
20 DIM L(3) 

30 DIM W(3) 

40 FOR X = 1 TO 3 

50 PRINT "INFORME O COMPRIMENTO E A 
LARGURA ?“ 

60 INPUT L<X> 

70 INPUT W(X) 

80 LET A = L(X) * W(X) 

90 PRINT"AREA = "j A;" M**2" 

100 NEXT X 

110 PRINT TAB<3);"COMP.<L>";TAB(12); 
"Lars.(W) ";TAB(20);"AREA(M**2>" 
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120 FOR Y - 1 TO 3 

130 PRINT TAB(3)?L(Y)»TAB(12);W<Y); 
TAB(20)5L(Y) * W(Y> 

140 LET B = B + L(Y) * W(Y) 

150 NEXT Y 

160 PRINT"AREA MEDIA = ";B/5; M M**2" 
170 STOP 


5.3 — Comando DIM. 

Ouando o mais alto valor do indice 
excede de 10 para uma variavel subscrita, o 
computador deve ser intormado. 

0 comando DIM <DIMENSION> e usado pa¬ 
ra instruir o computador, para abrir bas— 
tante caixas em sua memoria para comandar 
a entrada de dados. 0 programa 5.3 pode 
armazenar 100 comprimentos e larguras, -Fa¬ 
zenda moditicaches apropriadas y nas linhas 
20, 30 e comandos FOR...TO... E impossivel 
requerer mais espa^os na memoria, do que o 
computador pode suprir. Isto results em 
mensagem de erro. 

5.4 — Variaveis duplamente subscritas. 

0 BASIC, pode tambem usar subscritos 
duplos para nomear uma variavel. Isto e 
similar a subscritos simples, exceto que 
numeros inteiros separados por virgulas de- 
vem aparecer entre par&nteses. 



PDr exemplo: 
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A < 1,5), B<7,3> e C*<4,9> 

Soto variaveis subscritas. 

0 computador reserva espa^o na memo- 
ria, para variaveis subscribes duplamente 
por linhas e colunas, ao inves de uma sim¬ 
ples coluna, como e' o caso das^variaveis de 
subscritos simples. Isto prdve uma tecnica 
conveniente para manusear problemas nos 
quais, os dados, tenham natureza bidimen¬ 
sional. Para entender mais claramente, co¬ 
mo variaveis duplamente subscritas operam, 
a analog!a de caixas, e util novamente. 

0 primeiro inteiro no subscrito, 
identitica a linha, e o segundo inteiro, a 
coluna na qual a varia'vel est^ - localizada- 

Por exemplo: 

A <2,3) 

Esta localizada na segunda linha e 
terceira coluna. 


Programa 5.4: 

0 programa seguinte, pode ser usado 
por uma campanhia de aviat^ao para fazer re¬ 
serva em urn aviSo. 0 aviSo tern 40 linhas 
de assentos, e 5 colunas por linha. Urn no¬ 
ne de pessoa e armazenado na caixa corres 
pondente a cada assento. 


10 DIM A*(40,5> 
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20 FOR X = 1 TO 200 

30 PRINT "QUE LINHA E ASSENTO VOCE 
DESEJA ?" 

40 INPUT R 

50 INPUT S 

60 IF A*(R,S> > “ “ THEN GOTO 100 
70 PRINT”QUAL E 0 SEU NOME ? " 

80 INPUT A*(R,S> 

90 GOTO 230 

100 PRINT "DESCULPE, ESTE ASSENTO JA 
ESTA RESERVADO" 

110 PRINT "VOCE DESEJA UMA LISTA DE 
ASSENTOS VAGOS, 5 ou N ?” 

120 INPUT B* 

130 IF B$ = ”N“ THEN GOTO 30 
140 PR INT"LINHA,ASSENTO” 

150 FOR R - 1 TO 40 
160 FOR S = 1 TO 5 

170 IF A$(R,S) > " “ THEN GOTO 190 

180 PRINT TAB(l); r;tab< 5>5 ","j 
TAB(7)?S 


190 NEXT S 



200 NEXT R 
210 PRINT” " 

220 GOTO 30 
230 NEXT X 

240 PRINT"O AVIAO ESTA LOTADO. OUTRA 
PARTIDA ANANHA-" 

250 STOP 


A linha 10, de-fine as dimens&es do 
planejamento de assentos, e a linha 60, de- 
termina se urn assento ja Toi preenchido. 

No comedo do programa, todas as cai- 
xas das variaVeis "string" subscritas s^o 
automaticamente designadas por um espa^o em 
branco simples <" "). Caixas de variaveis 
numericas subscritas, ncto preenchidas, por 
outro lado, s3o automaticamente designadas 
por 0. Se um passageiro escolhe uma pol- 
trona ja preenchida, a linha 110 pergunta 
se ele deseja uma lista de assentos vagos. 

Se ele digita N, o computador retorna 
para a linha 30. Por outro lado, as linhas 
de 140 ate 200 instruem o computador para 
imprimir uma lista de assentos nSo pre- 
enchidos. 

Observe os loops aninhados requeri 
dos, para imprimir os numeros das linhas e 
assentos. 

5.5 - Limita^Sfo de variaveis subscritfs. 


Strings subscritas e variaveis nume¬ 
ricas, melhoram grandemerste a habilidade do 
prografflador ? para armazenar, e manipular 
grande quantidade de dados dentro de uma 
corrida de um certo proqrama. Entretanto, 
deve ser lembrada, que se o programa rodar 
de novo j tod os os dados ar^azenados na me'” 
moria do computador, s&o apagados; todas a^ 
caixas passam a ter os valores brancos ou 
zeros na proxima corrida, 

Exercicios da quinta aulal 


1 - Qual o objetivo do comando DIM ? 

2 “ Nos temos um conjunto chamado X- 

Qual a variavel <o nome del a) que 
o BASIC usa, para localizar o elemento da 
fileira 3 e coluna 4 ? 

3 - Escreva um programa onde vocfi 
possa entrar com numeros em uma variavel 
subscrita duplamente, e calcule e imprima, 
a soma dos elementos em cada linha, e o 
produto dos elementos de cada coluna, 

4—0 seguinte conjunto se chama A: 


13 5 

6 2 4 


a — Escreva um comando BIN para A. 
b - Dual e o valor de A<2,3) ? 
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Sexta aula 

c - Qual o valor de A (Ad, 1) , A <2,2) >? 

Esta aula s6 estS operacional para a linha 

d - Se X=i e Y=2, qual o valor de 

A<X,Y> ? Sinclair 

6.1- Comando PAUSE: 


0 comando PAUSE pode ser usado para 
simular o modo SLOW, na execu^So de urn pro- 
grama. 

A forma geral e: PAUSE N 

onde: N e o numero de quadros que a 
televis^o mostra por segundo. 

Algumas televisdes apresentam 60 qua¬ 
dros por segundo, ou seja PAUSE 60, na qual 
a e>: ecus So do programa sera" interrompida 
durante 1 segundo. Quando o computador es¬ 
ta em PAUSE, se vocA digitar qualquer tecla 
menos espa^o, o tempo de interrupfSTo sera 
menor. Depois que o tempo de PAUSE termi- 
nar a tela piscara'ou fi car a'escur a. 

E aconselhavel que apo"s uma linha que 
contenha o comando PAUSE, usemos uma outra 
linha com POKE 16437,255 ou poderemos cor— 
rer o risco de perdermos o nosso programa. 

Com o uso do comando PAUSE, e possi- 
vel programarmos o computador como urn relo- 
gio, tomando o cuidado em observar, que a 
precisSo n«to e perfeita. 

Exemplo: Programa para desenhar um 
relogio: 


10 REM DESENHO DO RELOGIO 
20 FOR N = 1 TO 12 
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30 PRINT AT 10-10*COS<N/6*PI>,10+ 
10*SIN<N/6*PI>;N 
40 NEXT N 

50 REM FUNCIONAMENTO DO RELOG10 
60 FOR T = 0 TO 10000 
70 LET A = T/30*PI 
80 LET SX = 21+18*SIN A 
90 LET SY = 22+18*COS A 
100 PLOT SX,SY 
110 PAUSE 50 
120 POKE 16437,255 
130 UNPLOT SX,SY 
140 NEXT T 

Observe como o tempo e controlado pe- 

la linha 110. , ^ , 

Voc0 esperaria PAUSE 60 para faz6-lo 
mudar uma vez por segundo, mas o processa- 
mento tambe'm toma tempo, e, esse tempo tern 
que ser considerado. A melhor maneira de 
fazfe-lo e at.raves de tentativa e erro, cro— 
nometrando o relogio do computador com am 
real e ajustando a linha 110. Voc0 n£o po- 
de fazer isso com precisSto; urn ajuste de urn 
quadro por segundo e dois por cento ou meia 
hora em urn dia. 


6.2 — Fun^Sto INKEY*. 


A -fun^So INKEY*, nUo tern argumento, 
1£ o teclado como se voc£ estivesse pressi- 
onando uma tecla; o resultado e o carater 
que aquela tecla representaj caso contra— 
rio, o resultado e uma string vazia. 

Os caracteres de control e, n=(o tern o 
e-feito comum, porem, d&o resultado como 
CHR* 118 para NEWLINE. Eles s&o impresses 
como Tente este programa, que -Funcio- 

na como uma maquina de escrever. 

10 IF INKEY* = ” " THEN GOTO 10 

20 PRINT INKEY*5 

30 GOTO 10 

A linha 10 espera voc£ pressionar uma 
tecla. Ao contra'rio de INPUT, INKEY* d3d 
espera voc§. Assim > voc^ n^co digita NEWLI¬ 
NE. Por outro lado, se voc# n^o digitar 
nada, voc@ tera perdido a sua chance. 

A fun^cCo INKEY* e muito util^ nos pro- 
gramas de jogos com DISPLAY de graficos. 

Exemplo: 

Voc£ esta no controle de uma espa^o- 
nave, e esta, em combate contra uma nave 
inimiga. Voc£ deve tentar destruir j^uantas 
naves puder. Se For destruido, tera outra 
chance para provar que e bom. 

Voc# tern tris naves. 


e pode usar as 
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teclas 6 e 7 para mover—se para cima e para 
baixo e a tecla 1 para atirar no inimigo. 

100 LET J—3 

110 LET S=-l 

120 LET D=INT <RND*28)+3 

130 LET S=S+1 

140 PAUSE 20 

150 LET H=11 

160 LET L=INT<RND*20> 

170 CLS 

180 PRINT AT H,05"=0" 

190 PRINT AT L,D; ,, + s =" 

200 IF INKEY* = “l" THEN GOTO 250 

210 IF RND <0.4 AND ABS(H-L) < 2 
THEN GOTO 300 

220 LET H=H—(H >0)*(INKEY$—"7") + 

<H<20)* <INKEY*="6"> 

230 LET L=L+INT<RND*3)-1+(L<0)-<L>20> 

240 GOTO 170 

250 FOR A=2 TO D 

260 PRINT AT H,A; M -” 


270 NEXT A 

280 IF H=L THEN GOTO 120 
290 GOTO 210 

300 FOR A=D TO 1 STEP -1 

310 PRINT AT L,A|" 

320 NEXT A 

330 IF HOL THEN GOTO 220 
340 LET J=J-1 

350 PRINT"VOCE FOI ATINGIDO" 
360 IF J THEN GOTO 120 
370 PRINT"FIM DO JOGO” 

380 PRINT"PONTOS= ";S 
390 PAUSE 50 
400 RUN 
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Setima aula 


7.1 - Fluxograma e programa aplicativo. 


Fluxograma e a representagi&o de um 
processo par simbolos graficos. Em progra- 
macfifo, “processo' 1 re-fere—se a "programa ou 
sequ^ncia de i nstrug:fifes" . ft seguir, apre— 
sentamos um fluMograma, para um programa de 
calculo da area de um quadrado. 


- INICIO - 


i 

i 


-/ ENTRAR / 
/ 0 LADG / 

i 


! CALCULAR ! 
* A AREA ! 

1 

I 


/ IMPRIMIR / 
/ A AREA / 


(A) 


(B> 
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(A) <B> 

i > 

i • 


/ OUTRA VEZ ? / 

i 

i 


-<- S/N - 

SIM - 


! NAO 

i 


- FIM - 


Veja, a seguir o que representam os 
di-ferentes simbolos empregados. 

- Representa o inicio ou 

— — fim do programa. 

- - Habitualmente so devem 

- - existir dois destes 

- simbolos por programa. 

Um para o inicio, e 
outro para o -fim. 
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- Significa uma entrada 

/ / ou saida de dados, 

/ / causando uma interrupt 

- i-g Q no programa, ate 

a ag:^fo do operador, 
como por exemplo: com 
as instrus&es INPUT, 
PRINT. 


Significa execu^^o, 
mas nSfo relacionada 
com a entrada ou saida 
de dados ou tomadas de 
decis&o. Algo como 
operates matematicas. 

✓ 

E uma tomada de deci- 
s=(o. 0-f erece duas 

possibilidades sim ou 


-> Sequ£ncia ou desvio do 

programa. 

Buando as linguagens de programagi&a 
eram mais complexas, e os computadores eram 
ainda de primeira e segunda gera^des, os 
•fluxogramas ate' que pod i am ter si do boa 

t» U1 ^3 m 

TOP DOWN e uma expressSto do ingles, 
dificil de o-ferecer uma boa tradu^Sfo. 

Poderiamos dizer "de cima para bai— 
xo", ou "linha reta", ou deixemos mesmo TOP 
DOWN, que signi-fica exempliticar a exeoti^cfo 
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de um programa atraves de suas fun^des, 
principalmente pelo esbo^o das entradas e 
saidas de dados, em um resumo escrito. 

Por exemplo, o programa da area do 
quadrado: 

1. INPUT LADO 

2. CALCULAR A AREA 

3. PRINT A RESPOSTA 

4. CONTINUA ? S/N 

5. SIM, THEN RUN 

6. NAO, THEN STOP 

E um resumo do que se pretende que o 
programa -fa^a. 

Transformando em programa: 


10 PRINT"LADO ?" 

12 INPUT L 
14 LET A=L*L 
16 PRINT L 

18 PRINT"AREA= "SAS" M2" 

20 PRINT"OUTRA VEZ ? (S OU N)" 

22 INPUT P* 

24 CLS 

26 IF P*="S" THEN RUN 
28 STOP 

Na linha Apple deve ser usado o comando 
Home na linha 24. 
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Programa 7.1 - Lista telefdnica. 


Este programa arquiva N telefones se- 
guidos de nome e endere^o. Procura o tele- 
tone pelo nome ou vice-versa, oferece pos- 
sibilidade de alterar as fichas, etc.. 

Os comandos CLS devem ser substituxdos 
pelo comando HOME para usuSrios da 
linha Apple, 
a - Programa. 


1) Modulo "MENU". 


245 

CLS 




248 

IF P=0 

THEN 

GOTO 

22 

250 

IF P=1 

THEN 

GOTO 

400 

260 

IF P=2 

THEN 

GOTO 

300 

270 

IF P=3 

THEN 

GOTO 

510 

3) I 

Modulo 

"NOVO 

ARQUIVO” 


200 PRINT 

205 PRINT"DIGITE PARA PROCURAR:" 

210 PRINT"1 - PELO NOME" 

220 PRINT"2 - PELO TELEFONE" 

221 PRINT"DIGITE:" 

222 PRINT"3 - PARA ALTERAR/INCLUIR" 
224 PRINT"0 - PARA NOVO ARQUIVO" 

2) Modulo "ESCOLHA" 

230 INPUT P 

240 IF P<0 OR P>3 THEN GOTO 230 
242 IF PO0 AND N=0 THEN GOTO 230 


22 CLS 

25 PRINT"QUANTOS NOMES ? "i 
30 INPUT N 
40 PRINT N 
45 PRINT 

50 PRINT"MAX. 32 LETRAS POR NOME" 
70 DIM A*<N,32> 

80 DIM A(N) 

90 DIM B$ CN,32) 

100 FOR X=1 TO N 
110 CLS 

120 PRINT"QUAL 0 "JX?" NOME ?" 
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130 INPUT A*<X> 

140 PRINT"QUAL O TELEFONE ?" 

150 INPUT A(X) 

154 PRINT"QUAL O ENDERECO ?" 

156 INPUT B*(X> 

158 IF K=1 THEN GOTO 175 

160 CLS 

161 PRINT A*<X> 

162 PRINT A(X) 

163 PRINT B*(X> 

164 PAUSE 120 

165 CLS 
170 NEXT X 
175 LET K=0 

180 PRINT"NOMES E TELEFONES ARQUIVADO 
S" 

4) modulo procura "PELO NOME" 

400 CLS 

405 PRINT”DIGITE O NOME" 


412 LET X=LEN X$ 

420 FOR C=1 TO N 

425 LET K*=A*<C,(X+l)> 

430 IF X*=A*(C,TO X) AND CODE<K*>=0 
THEN GOTO 450 

435 NEXT C 

440 GOTO 490 

452 PRINT A*(C> 

455 PRINT A(C) 

460 PRINT B*<C> 

470 PRINT 

480 GOTO 200 

490 PRINT"NOME NAO ENCONTRADO" 

500 GOTO 200 

5) modulo procura "PELO TELEFONE" 

300 CLS 

305 PRINT"DIGITE O TELEFONE" 

310 INPUT X 


410 INPUT X* 


320 FOR C= 1 TO N 
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330 IF X=ft(C) THEN GOTO 350 

335 NEXT C 

340 GOTO 380 

350 PRINT X 

352 PRINT B$(C> 

355 PRINT A *iC) 

360 PRINT 
370 GOTO 200 

380 PRINT"TELEFONE NAO ENCONTRADQ H 
386 PRINT 
390 GOTO 200 

6> modulo “ALTER AC AO E INCLUSAO'* 

510 CLS 

515 PRINT”QUAL A FICHA PARA ALTERAR 
?“ 

520 PRINT“DE 1 A “;N 
530 INPUT X 

540 IF X<1 OR X>N THEN GOTO 530 


550 CLS 
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560 LET K=1 
570 GOTO 110 

7) Modulo “INICIO” 

2 LET N=0 
14 LET K=0 

18 PRINT AT 6,0J"LISTA TELEFONICA" 

19 PRINT,,,, 


20 GOTO 200 
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Oitava aula 

Para os equipamentos que nlio sejam da linha 
Sinclair,o comando LET pode ser suprimido. 

A linha 30 deve ser escrita GET Z$ nos equi¬ 
pamentos da linha Apple. 

8 .1 - Programa para desenhar na tela. 


10 

LET 

X=32 




20 

LET 

Y=22 




25 

PLOT X,Y 




30 

LET 

Z$=INKEY* 



40 

IF 

Z*="5“ 

THEN 

GOTO 

150 

50 

IF 

Z*=“6" 

THEN 

GOTO 

200 

60 

IF 

Z*=‘*7” 

THEN 

GOTO 

250 

70 

IF 

Z*=“B" 

THEN 

GOTO 

300 

80 

IF 

Z*="l" 

THEN 

GOTO 

350 

90 

IF 

Z*=”2" 

THEN 

GOTO 

400 

100 

IF 

Z*="3" 

THEN 

GOTO 

500 

110 

IF 

Z$= ,, 4" 

THEN 

GOTO 

550 

120 

GOTO 30 




150 

LET X=X-1 




160 

•IF 

X<0 THEN LET X=0 



170 GOTO 25 

200 LET Y=Y-1 

210 IF Y<0 THEN LET Y=0 

220 GOTO 25 

250 LET Y=Y+1 

260 IF Y>43 THEN LET Y=43 

270 GOTO 25 

300 LET X=X+1 

310 s IF X>63 THEN LET X=63 

320 GOTO 25 

350 LET X=X-1 

360 LET Y=Y+1 

370 IF Y>43 THEN LET Y=43 

380 GOTO 25 

400 LET X=X+1 

410 LET Y=Y+1 

420 IF Y>43 THEN LET Y=43 

430 GOTO 25 

500 LET X=X+1 

510 LET Y=Y—1 
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520 IF Y<0 THEN LET Y=0 

530 GOTO 25 
550 LET X=X-i 

560 LET Y=Y—1 

570 IF Y<0 THEN LET Y=0 

580 GOTO 25 


Neste programa, nas linhas 10 e 20, 
armazenamos as coordenadas do ponto que se¬ 
ra impresso no centro da tela. 

A escolha das dires&es, nas quais po- 
deremos deslocar o ponto que -for mar a o nas— 
so desenho, e ofatida apartir da linha 30 
ate a linha 120. 

Descri^ao das rotinas: 

a) A primeira, e para deslocar o pon¬ 
to para a esquerda. Para isto, devemos di- 
minuir de uma unidade o valor de X. 

b) A segunda, e para deslocar o ponto 
para baixo. Agora devemos subtrair uma 
unidade do valor de Y. 

c> A terceira, e para deslocar o pon¬ 
to para cima. Para isto, devemos agora au- 
mentar de uma unidade o valor de Y. 

d> A quarta, e para deslocar o ponto 
para a direita. Para isto, mantemos fixo o 
valor de Y e variamos o valor de X. 

e) A quinta, e para deslocar o ponto 


para a esquerda e para cima. Neste caso, 
iremos diminuir o X e aumentar o Y. 

f> A sexta, e para deslocar o ponto 
para a direita e para cima. Neste caso, 
iremos aumentar o valor de X e Y. 

g) A setima, e para deslocar o ponto 
para a direita e para baixo. Neste caso, 
iremos aumentar o valor de X e diminuir o 
valor de Y. 

h) A oitava, e para deslocar o ponto 
para a esquerda e para baixo. Neste caso, 
iremos diminuir o valor de X e diminuir o 
valor- de Y. 


Depois que o desenho estiver pronto, 
para executarmos outro, devemos apertar a 
tecla BREAK e, em seguida, o comando RUN, 
para reiniciar. Uma alternative para evi— 
tar isto, seria acrescentarmos uma rotina 
para apagar a tela. 
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Nona aula 


9.1— Exercicios. 


4) Escreva urn (jrograma para imprimir 
um tridngulo com o numero N de linhas e N 
digit os de altbra, usando somente o numero 
1. Por exemplo: usando N*=5, a saida seria 
como a da -figura abaixo. 


1) Use o computador e calcule as suas 
retiradas na biblioteca. In-forme o ndmero 1 

de 1ivros que voc© pegou emprestado e quan— 11 

tos dias cada um -ficou emprestado. Fa«;a o m 

computador imprimir o total de sua conta se 1111 

voc§ paga CR$ 10,00 por dia e por livro. 11111 


2) Considerando que voc£ dorme 8 ho— 
ras por dia, fagra o computador imprimir 
quantas horas de sua vida voc£ passou dor— 
mindo. Entre com os dados do seu nascimen— 
to e a data de hoje, na -forma numerica, is— 
to e: DDMMAA. (dia, m£s e ano) 

3) Bilhetes estcfo sendo vendidos para 
um show de opera. Somente vinte estcfo dis— 
poniveis. Use o computador para registrar 
a venda de bilhetes. Se uma compra parti¬ 
cular requerer mais bilhetes do que o nume¬ 
ro disponivel, o computador deve dar um 
aviso de que existem mends bilhetes que os 
solicitados. 

Se existirem bilhetes para atender o 
pedido particular, o computador deve acei- 
tar a ordem e incrementar o contador de bi¬ 
lhetes vendidos. Quando todos os bilhetes 
■forem vendidos, o computador devera" impri¬ 
mir: FIM DE VENDA. 
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ANEXO II - SoIujfKo dos exercicios. 

Obs. Os exercfcios estSto resolvi dos para 
a linha Sinclair. Para outros equipamentos, 
voc# prdprio deve fazer as adapta$:&es 
a tftulo de exercfcio. 

Aula l: 


1-a) SIM, 

NAO, 

SIM, 

SIM 

SIM, 

NAO, 

NAO, 

SIM 


1-b) Tr&s -> uina letra, duas letras e uma 
letra e um numero. 


2) 10 INPUT X 
20 INPUT Y 

30 LET A»12*X+7*Y 
40 PRINT A 
50 SOTO 10 
60 STOP 


3 > 10 PR INT "QUANTOS PEDACOS VOCE COMEU ?" 


20 INPUT P 
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30 LET M = P * 3.75 
40 PRINT 

50 PRINT“VOCE DEVE CORRER "jMj 
" MILHAS” 

60 PRINT 

70 GOTO 10 

80 STOP 

4) 10 PRINT"ENTRE COM A LARGURA" 

20 INPUT L 

30 PRINT“ENTRE COM 0 COMPRIMENTO" 

40 INPUT C 

50 PRINT"ENTRE COM A ALTURA" 

60 INPUT A 

70 LET V - L * C * A 
80 PRINT 

90 PRINT"0 VOLUME E: "?V 
100 PRINT 
110 GOTO 10 
120 STOP 

5) 10 PRINT"ENTRE COM 0 PRIMEIRO NUMERO» 



78 


79 


20 

INPUT 

Ni 




30 

PRINT' 

"ENTRE 

COM 

0 

SEGUNDO NUMERO" 

40 

50 

INPUT 

PRINT’ 

N2 

•ENTRE 

COM 

0 

TERCEIRO NUMERO" 

60 

INPUT 

N3 




70 

PRINT 

"ENTRE 

COM 

0 

QUARTO NUMERO" 

80 

INPUT 

N4 




90 

LET M 

= <N1 

+ N2 

+ N3 + N4> / 4 

100 

PRINT 





110 

PRINT 

"A MEDIA E 

m 

■ 

";m 

120 

PRINT 





130 

GOTO 

10 




140 

STOP 






6 > 10 PRINT’’ENTRE COM O PRECO TOTAL" 

20 INPUT P 

30 PRINT”ENTRE COM A QUANTIDADE TOTAL" 
40 INPUT Q 
50 LET U = P / Q 
60 PRINT 


70 PRINT”Q PRECO UNITARIO E: ";U 
80 PRINT 
90 BOTO 10 
100 STOP 

7) 10 PRINT"ENTRE COM GRAUS F” 

20 INPUT F 

30 LET C = (5/9) * (F - 32) 

40 PRINT 

50 PRINT F;" GRAUS F SAO "jC?" GRAUS 

60 PRINT 
70 GOTO 10 
80 STOP 

8 ) 10 PRINT"ENTRE COM A" 

20 INPUT A 

30 PRINT"ENTRE COM B” 

40 INPUT B 
50 LET S = A + B 
60 LET P = A * B 
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70 PRINT 

80 PRINT"A SOMA DE A COM BE: "5S 
90 PRINT”0 PRODUTO DE A COM BE: "SP 
100 PRINT 
110 GOTO 10 
120 STOP 

Aula 2: 

1 > 10 FOR X=10 TO 40 STEP 2 

20 IF C3/5) * X**2 + 2*X + 2/5 > 300 
THEN GOTO 40 

30 GOTO 50 

40 PRINT X;” 

50 NEXT X 

60 STOP 

2> 10 PRINT"ENTRE COM A SUA IDADE” 

20 INPUT I 

30 IF I >= 16 THEN GOTO 60 

40 PRINT"VOCE DEVE ESPERAR ";16-I; 

" ANOS" 


50 GOTO 70 

60 PRINT"VOCE PODE DIRIGIR UM CARRO” 
70 PRINT 
80 GOTO 10 
90 STOP 

3) 10 PRINT”N","SQR<N)" 

20 PRINT 

30 FOR N=1 TO 10 
40 PRINT N,SQR(N) 

50 NEXT N 
60 STOP 

4) 10 LET X=0 
20 PRINT X;" 

30 LET X = X+10 
40 IF X > 500 THEN STOP 
50 GOTO 20 
60 STOP 

5) 10 FOR A=1 TO 10 
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20 PRINT"ANDAR "5 A 
30 PRINT 

40 FOR B= 1 TO 10 

50 LET C = A * 100 + B 

60 PRINT"APOSENTO NUM. H ;C 

70 NEXT B 

80 NEXT A 

90 STOP 

6 > 10 PRINT”POLEGADAS","CENTIMETROS" 

20 PRINT 

30 FOR P=0 TO 10 STEP 0.5 
40 LET C - P * 2.54 
50 PRINT P,C 
60 NEXT P 
70 STOP 

Aula 3: 

1) Lima variavel STRINS e identi-f icada pe— 
lo simbolo ($) apos uma letra. Example! A$ 


2) 10 FOR X-1 TO 3 

20 PRINT TAB(10) } "XX" 

30 NEXT X 

40 FOR X=1 TO 2 

50 PRINT TAB<10)5 "XXXXXX" 

60 NEXT X 
70 STOP 

3) 10 LET X=0 
20 INPUT A$ 

30 PRINT TAB(X)J A$ 

40 IF X=42 THEN SOTO 10 
50 LET X=42 
60 GOTO 20 
70 STOP 

4) 10 PRINT"ENTRE UMA PALAVRA" 
20 INPUT A* 

30 FOR X=1 TO LEN A* 

40 PRINT TAB<X>;A$(X> 

50 NEXT X 
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60 STOP 

5 ) 10 PRINT"ENTRE UMA PALAVRA" 

20 INPUT A* 

30 FOR X=1 TO LEW A* 

40 PRINT A*(X> 

50 NEXT X 
60 STOP 

6 > 10 PRINT "ENTRE UMA PALAVRA'* 

20 INPUT A$ 

30 FOR X=1 TO LEN A* 

40 PRINT A$(X TO LEN A*) 

50 NEXT X 
60 STOP 

Aula 4: 

1) Devemos usar o comando RAND. 

2) Devemos utilizer a -fun^So RND. 
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3> 10 FOR X=1 TO 10 

20 LET R=INT(26*RND>+50 
30 PRINT R;“ ”5 

40 NEXT X 
50 STOP 

4) 10 FOR X=1 TO 10 

20 LET R=INT(6*RND>+1 
30 PRINT“FACE- ";R 
40 NEXT X 
50 STOP 

Aula 5: 

1) Reservar espafo na memoria para arma- 
zenamento das varikveis. 

2) X (3,4) 

3) 10 PRINT"ENTRE COM AS DIMENSOES DE 
A < I, J) " 

20 PRINT“DIGITE O VALOR DE I" 
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30 INPUT I 

40 PRINT'*DIGITE O VALOR DE J" 

50 INPUT 3 
60 DIM A(I,J) 

70 FOR X=1 TO I 
80 FOR Y=1 TO J 

90 PRINT“ENTRE COM O VALOR DE A(”;Xj 

ii ii « \ >■ 

9 9 Y J / 

100 INPUT A<X,Y> 

110 NEXT Y 

120 NEXT X 

130 LET TL—0 

140 LET TC=1 

150 FOR X—1 TO I 

160 FOR Y=1 TO J 

170 LET TL=TL + A(X,Y> 

180 NEXT Y 

190 PRINT“SOMA DA LINHA "5X5": "$ TL 
200 LET TL=0 
210 NEXT X 


220 FOR Y=1 TO J 
230 FOR X=I TO I 
240 LET TC=TC * A(X,Y> 

250 NEXT X 

260 PRINT"PRODUT0 DA COLUNA **; Y» M : ”5 

270 LET TC=1 
280 NEXT Y 
290 STOP 

4> a- A(2,3) 
b- A(2,3)=4 
c- A(1, 2) =3 
d- A(1,2)=3 

Aula 9 : 

1) 5 LET T=0 

10 PRINT-’QUANTOS LIVROS EMPRESTADOS" 
20 INPUT X 
30 FOR 1=1 TO X 

40 PRINT”QUANTOS DIAS 0 LIVRO ";IS 
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" FICOU EMPRE5TADQ" 

50 INPUT Y 
60 PRINT 

70 LET T=T+Y*I0+10 
80 NEXT I 

90 PRINT"TOTAL DA CONTA: CR* ”?T 
100 GOTO 10 

2) 10 PRINT"DATA DE NASCIMENTO tDDMMAA)" 

20 INPUT N 
30 PRINT 

40 PRINT"DATA DE HQ.JE (DDMMAA)” 

50 INPUT H 

60 LET DN=INT<N/10000) 

70 LET MN=INT( N/100)—DN*100 
80 LET AN—N—< DN* 10000+MN#-100 > 

90 LET D1=DN+MN*30+AN*360 
100 LET DH=INT<H/10000> 

110 LET MH=INT(H/100>-DH*100 
120 LET AH—H— (DH*10000+MH* 100 ) 
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130 LET D2=DH+MH*30+AH*360 
140 LET X=<D2-D1>*8 

150 PRINT"VOCE DORMIU ATE ";HS" ";X; 
'* HORAS" 

160 PRINT 

170 PRINT 

180 GOTO 10 

3) 10 LET K—20 

20 PR I NT ” QUANTOS BILHETES DESEJA ?*' 
30 INPUT N 

40 IF N>K THEN GOTO 80 
50 LET K=K-N 
60 IF K—0 THEN GOTO 120 
70 GOTO 10 

80 PRINT"SO EXISTEM ";K;" BILHETES 
DISPONIVEIS" 

90 PRINT 

100 IF K=0 THEN GOTO 120 
110 GOTO 10 

120 PRINT"FIM DE VENDA" 


130 PRINT 



90 


140 STOP 

4) 10 PRINT"INDIQUE A ALTURA DO TRIANGU 

LO" 

20 INPUT N 
30 FOR 1=1 TO N 
40 FOR J=1 TO I 
50 PRINT- 1" S •' "5 
55 NEXT J 
60 PRINT 
70 NEXT I 
80 PRINT 
90 GOTO 10 


100 STOP 
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